object DM: TDM
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Height = 654
  Width = 952
  object connMLPAexp: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=doc\M' +
      'LPAdatabase.mdb;Mode=Share Deny None;Extended Properties="";Pers' +
      'ist Security Info=False;Jet OLEDB:System database="";Jet OLEDB:R' +
      'egistry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine ' +
      'Type=5;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partia' +
      'l Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New ' +
      'Database Password="";Jet OLEDB:Create System Database=False;Jet ' +
      'OLEDB:Encrypt Database=False;Jet OLEDB:Don'#39't Copy Locale on Comp' +
      'act=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLE' +
      'DB:SFP=False'
    LoginPrompt = False
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    OnConnectComplete = connMLPAexpConnectComplete
    Left = 80
    Top = 24
  end
  object tblSamples: TADOTable
    Connection = connMLPAexp
    CursorType = ctStatic
    AfterInsert = tblSamplesAfterInsert
    AfterPost = tblSamplesAfterPost
    TableName = 'tbl_samples'
    Left = 80
    Top = 96
    object tblSamplessampleid: TAutoIncField
      FieldName = 'sampleid'
      ProviderFlags = [pfInKey, pfHidden]
    end
    object tblSamplesLabId: TWideStringField
      FieldName = 'LabId'
      Size = 50
    end
    object tblSamplesvolgnrblok: TWideStringField
      FieldName = 'volgnrblok'
      Size = 50
    end
    object tblSamplestypeID: TIntegerField
      FieldName = 'typeID'
    end
    object tblSamplesnormaaltumor: TWideStringField
      FieldName = 'normaaltumor'
      Size = 50
    end
    object tblSamplespercentagetumor: TIntegerField
      FieldName = 'percentage tumor'
    end
    object tblSamplesnecrotisch: TWideStringField
      FieldName = 'necrotisch'
      Size = 50
    end
    object tblSamplesopmerkingen: TWideStringField
      FieldName = 'opmerkingen'
      Size = 50
    end
    object tblSamplesdatum: TDateTimeField
      FieldName = 'datum'
      ProviderFlags = [pfInWhere]
    end
  end
  object dsSamples: TDataSource
    DataSet = tblSamples
    Left = 160
    Top = 96
  end
  object tblKits: TADOTable
    Connection = connMLPAexp
    CursorType = ctStatic
    TableName = 'tbl_kits'
    Left = 576
    Top = 96
  end
  object tblProbes: TADOTable
    Connection = connMLPAexp
    CursorType = ctStatic
    IndexFieldNames = 'KitID'
    MasterFields = 'KitID'
    MasterSource = dsKits
    TableName = 'tbl_kitmarkers'
    Left = 576
    Top = 168
  end
  object dsKits: TDataSource
    DataSet = tblKits
    Left = 648
    Top = 96
  end
  object dsProbes: TDataSource
    DataSet = tblProbes
    Left = 648
    Top = 168
  end
  object qryGetKitId: TADOQuery
    Connection = connMLPAexp
    Parameters = <
      item
        Name = 'kitid'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'SELECT * FROM tbl_kits'
      'WHERE KitID = :kitid')
    Left = 576
    Top = 232
  end
  object qryGetProbeId: TADOQuery
    Connection = connMLPAexp
    Parameters = <
      item
        Name = 'KitId'
        Attributes = [paNullable]
        DataType = ftWideString
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = 'ProbeId'
        Attributes = [paNullable]
        DataType = ftWideString
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'SELECT ProbeId FROM tbl_kitmarkers'
      'WHERE ( kitid = :KitId  OR kitid='#39'QC'#39')  AND id = :ProbeId ')
    Left = 576
    Top = 296
  end
  object tblRuns: TADOTable
    Connection = connMLPAexp
    CursorType = ctStatic
    TableName = 'tbl_runs'
    Left = 80
    Top = 152
    object tblRunsrunid: TAutoIncField
      FieldName = 'runid'
    end
    object tblRunsGelfileName: TWideStringField
      FieldName = 'GelfileName'
      Size = 50
    end
    object tblRunsTechnician: TWideStringField
      FieldName = 'Technician'
      Size = 50
    end
    object tblRunsDate: TDateTimeField
      FieldName = 'Date'
    end
    object tblRunsProbeMixStockno: TWideStringField
      FieldName = 'ProbeMixStockno'
      Size = 50
    end
    object tblRunsBufferStockno: TWideStringField
      FieldName = 'BufferStockno'
      Size = 50
    end
    object tblRunsLigaseStockNo: TWideStringField
      FieldName = 'LigaseStockNo'
      Size = 50
    end
  end
  object qryAssayCount: TADOQuery
    Connection = connMLPAexp
    Parameters = <
      item
        Name = 'runid'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'SELECT Count(assayid) AS assaycount'
      'FROM tbl_assays'
      'WHERE runid = :runid')
    Left = 280
    Top = 264
  end
  object dsRuns: TDataSource
    DataSet = tblRuns
    Left = 160
    Top = 152
  end
  object qrySelectRun: TADOQuery
    Connection = connMLPAexp
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'SELECT tbl_runs.runid, tbl_runs.Date, tbl_runs.GelfileName, Coun' +
        't(tbl_assays.assayid) AS AssayCount'
      
        'FROM tbl_runs LEFT JOIN tbl_assays ON tbl_runs.runid = tbl_assay' +
        's.runid'
      'GROUP BY tbl_runs.Date, tbl_runs.GelfileName, tbl_runs.runid')
    Left = 280
    Top = 320
  end
  object dsSelectRun: TDataSource
    DataSet = qrySelectRun
    Left = 360
    Top = 320
  end
  object tblAssays: TADOTable
    Connection = connMLPAexp
    CursorType = ctStatic
    TableName = 'tbl_assays'
    Left = 80
    Top = 208
  end
  object qrySelectAssay: TADOQuery
    Connection = connMLPAexp
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'SELECT tbl_runs.runid, tbl_runs.GelfileName, tbl_runs.Date, tbl_' +
        'assays.assayid, tbl_assays.kitid, tbl_assays.SampleIDField, tbl_' +
        'assays.TraceFilename, Count(tbl_assayprobes.assayprobeid) AS Aan' +
        'talVanassayprobeid'
      
        'FROM tbl_runs RIGHT JOIN (tbl_assays LEFT JOIN tbl_assayprobes O' +
        'N tbl_assays.assayid = tbl_assayprobes.assayid) ON tbl_runs.runi' +
        'd = tbl_assays.runid'
      
        'GROUP BY tbl_runs.Date, tbl_runs.runid, tbl_runs.GelfileName, tb' +
        'l_assays.assayid, tbl_assays.kitid, tbl_assays.SampleIDField, tb' +
        'l_assays.TraceFilename'
      ';')
    Left = 280
    Top = 392
  end
  object dsSelectAssay: TDataSource
    DataSet = qrySelectAssay
    Left = 360
    Top = 392
  end
  object qryGetKitIDs: TADOQuery
    Connection = connMLPAexp
    Parameters = <>
    SQL.Strings = (
      'SELECT kitid'
      'FROM tbl_kits'
      '')
    Left = 576
    Top = 352
  end
  object tblAssayProbes: TADOTable
    Connection = connMLPAexp
    CursorType = ctStatic
    TableName = 'tbl_assayprobes'
    Left = 80
    Top = 328
  end
  object qrySampleAssays: TADOQuery
    Connection = connMLPAexp
    CursorType = ctStatic
    DataSource = dsSamples
    Parameters = <
      item
        Name = 'sampleid'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = '2'
      end>
    SQL.Strings = (
      
        'SELECT tbl_runs.GelfileName, tbl_runs.Date, tbl_assays.assayid, ' +
        'tbl_assays.sampleid, tbl_assays.kitid, tbl_assays.TraceFileName,' +
        ' tbl_assays.SampleIDField, Count(tbl_assayprobes.assayprobeid) A' +
        'S assayprobes'
      
        'FROM (tbl_runs RIGHT JOIN tbl_assays ON tbl_runs.runid = tbl_ass' +
        'ays.runid) LEFT JOIN tbl_assayprobes ON tbl_assays.assayid = tbl' +
        '_assayprobes.assayid'
      'WHERE (tbl_assays.sampleid = :sampleid)'
      
        'GROUP BY tbl_runs.GelfileName, tbl_runs.Date, tbl_assays.assayid' +
        ', tbl_assays.sampleid, tbl_Assays.TraceFileName, tbl_assays.kiti' +
        'd, tbl_assays.SampleIDField')
    Left = 280
    Top = 96
  end
  object dsSampleAssays: TDataSource
    DataSet = qrySampleAssays
    Left = 376
    Top = 96
  end
  object qryRunAssays: TADOQuery
    Connection = connMLPAexp
    CursorType = ctStatic
    DataSource = dsRuns
    Parameters = <
      item
        Name = 'runid'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = '1'
      end>
    SQL.Strings = (
      
        'SELECT tbl_samples.LabId, tbl_samples.normaaltumor, tbl_assays.k' +
        'itid, tbl_assays.SampleIDField, tbl_assays.TraceFileName, Count(' +
        'tbl_assayprobes.assayprobeid) AS CountOfassayprobeid'
      
        'FROM tbl_samples INNER JOIN (tbl_assays LEFT JOIN tbl_assayprobe' +
        's ON tbl_assays.assayid = tbl_assayprobes.assayid) ON tbl_sample' +
        's.sampleid = tbl_assays.sampleid'
      'WHERE (tbl_assays.runid)= :runid '
      
        'GROUP BY tbl_samples.LabId, tbl_samples.normaaltumor, tbl_assays' +
        '.runid, tbl_assays.kitid, tbl_assays.SampleIDField, tbl_assays.T' +
        'raceFileName'
      '')
    Left = 280
    Top = 152
  end
  object dsRunAssays: TDataSource
    DataSet = qryRunAssays
    Left = 376
    Top = 152
  end
  object tblAnalyses: TADOTable
    Connection = connMLPAexp
    CursorType = ctStatic
    TableName = 'tbl_analyses'
    Left = 80
    Top = 384
    object tblAnalysesanalysisid: TAutoIncField
      FieldName = 'analysisid'
      ReadOnly = True
    end
    object tblAnalyseskitid: TWideStringField
      FieldName = 'kitid'
      Size = 10
    end
    object tblAnalysesdate: TDateTimeField
      FieldName = 'date'
      DisplayFormat = 'yyyy-mm-dd t'
    end
    object tblAnalysesTechnician: TWideStringField
      FieldName = 'Technician'
      Size = 50
    end
    object tblAnalysesexcludedprobes: TWideStringField
      FieldName = 'excludedprobes'
      Size = 250
    end
    object tblAnalysescontrolprobes: TWideStringField
      FieldName = 'controlprobes'
      Size = 250
    end
    object tblAnalysesstableprobes: TWideStringField
      FieldName = 'stableprobes'
      Size = 250
    end
    object tblAnalysesgroupprobes: TWideStringField
      FieldName = 'groupprobes'
      Size = 250
    end
    object tblAnalysestresholdlow: TFloatField
      FieldName = 'tresholdlow'
    end
    object tblAnalysestresholdhigh: TFloatField
      FieldName = 'tresholdhigh'
    end
    object tblAnalysescolorlow: TIntegerField
      FieldName = 'colorlow'
    end
    object tblAnalysescolorhigh: TIntegerField
      FieldName = 'colorhigh'
    end
    object tblAnalysescenterwhite: TBooleanField
      FieldName = 'centerwhite'
    end
    object tblAnalysesauthorized: TBooleanField
      FieldName = 'authorized'
    end
    object tblAnalysesrawdatatype: TSmallintField
      FieldName = 'rawdatatype'
    end
    object tblAnalysesusecontrolprobes: TBooleanField
      FieldName = 'usecontrolprobes'
    end
    object tblAnalysesusecontrolsamples: TBooleanField
      FieldName = 'usecontrolsamples'
    end
    object tblAnalysesmedianpolish: TSmallintField
      FieldName = 'medianpolish'
    end
  end
  object dsAnalyses: TDataSource
    DataSet = tblAnalyses
    Left = 160
    Top = 384
  end
  object qryAnalysisAssays: TADOQuery
    Connection = connMLPAexp
    CursorType = ctStatic
    DataSource = dsAnalyses
    Parameters = <
      item
        Name = 'analysisid'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = '1'
      end>
    SQL.Strings = (
      
        'SELECT tbl_runs.GelfileName, tbl_runs.Date, tbl_samples.LabId, t' +
        'bl_samples.normaaltumor,  tbl_assays.SampleIDField, tbl_analysis' +
        'assays.analysisassayid, tbl_analysisassays.assayid, tbl_samples.' +
        '[percentage tumor] as tumorpercentage'
      
        'FROM ((tbl_samples INNER JOIN (tbl_runs RIGHT JOIN tbl_assays ON' +
        ' tbl_runs.runid = tbl_assays.runid) ON tbl_samples.sampleid = tb' +
        'l_assays.sampleid) INNER JOIN tbl_analysisassays ON tbl_assays.a' +
        'ssayid = tbl_analysisassays.assayid) '
      'WHERE ((tbl_analysisassays.analysisid) = :analysisid )'
      'ORDER BY tbl_analysisassays.analysisassayid;')
    Left = 280
    Top = 456
  end
  object dsAnalysisAssays: TDataSource
    DataSet = qryAnalysisAssays
    Left = 360
    Top = 456
  end
  object qryKitAssays: TADOQuery
    Connection = connMLPAexp
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'kitid'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = '1'
      end>
    Prepared = True
    SQL.Strings = (
      
        'SELECT tbl_samples.LabId, tbl_samples.normaaltumor, tbl_runs.Dat' +
        'e, tbl_assays.assayid , tbl_assays.runid, tbl_assays.kitid, tbl_' +
        'assays.SampleIDField, Count(tbl_assayprobes.assayprobeid) AS Cou' +
        'ntOfassayprobeid'
      
        'FROM (tbl_samples INNER JOIN (tbl_runs RIGHT JOIN tbl_assays ON ' +
        'tbl_runs.runid = tbl_assays.runid) ON tbl_samples.sampleid = tbl' +
        '_assays.sampleid) LEFT JOIN tbl_assayprobes ON tbl_assays.assayi' +
        'd = tbl_assayprobes.assayid'
      'WHERE ((tbl_assays.kitid) = :kitid )'
      
        'GROUP BY tbl_samples.LabId, tbl_samples.normaaltumor, tbl_runs.D' +
        'ate, tbl_assays.assayid, tbl_assays.runid, tbl_assays.kitid, tbl' +
        '_assays.SampleIDField'
      'HAVING (((Count(tbl_assayprobes.assayprobeid))>0))')
    Left = 280
    Top = 208
  end
  object dsKitAssays: TDataSource
    DataSet = qryKitAssays
    Left = 376
    Top = 208
  end
  object tblAnalysisAssays: TADOTable
    Connection = connMLPAexp
    CursorType = ctStatic
    IndexFieldNames = 'analysisid'
    MasterFields = 'analysisid'
    MasterSource = dsAnalyses
    TableName = 'tbl_analysisassays'
    Left = 80
    Top = 448
  end
  object qryGetAnalysisAssay: TADOQuery
    Connection = connMLPAexp
    Parameters = <
      item
        Name = 'assayid'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = 'analysisid'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'SELECT analysisassayid FROM tbl_AnalysisAssays'
      'WHERE (assayid = :assayid ) AND (analysisid = :analysisid )')
    Left = 280
    Top = 512
  end
  object qryGetAnalysisProbeCount: TADOQuery
    Connection = connMLPAexp
    Parameters = <
      item
        Name = 'analysisassayid'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'SELECT Count(analysisprobeid) AS Probes'
      'FROM tbl_analysisprobes'
      'WHERE (( analysisassayid ) = :analysisassayid )')
    Left = 480
    Top = 152
  end
  object qryGetAnalysisAssayCount: TADOQuery
    Connection = connMLPAexp
    Parameters = <
      item
        Name = 'analysisid'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'SELECT COUNT(analysisassayid) as Assays'
      'FROM tbl_analysisassays'
      'WHERE (( analysisid ) = :analysisid )')
    Left = 480
    Top = 96
  end
  object qryAssayProbes: TADOQuery
    Connection = connMLPAexp
    Parameters = <
      item
        Name = 'assayid'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'SELECT Category, Label1, Label2, Label3 '
      'FROM tbl_assayprobes'
      'WHERE (( assayid ) = :assayid )')
    Left = 480
    Top = 208
  end
  object tblAnalysisProbes: TADOTable
    Connection = connMLPAexp
    CursorType = ctStatic
    TableName = 'tbl_analysisprobes'
    Left = 80
    Top = 504
  end
  object qryGetKitProbeNummers: TADOQuery
    Connection = connMLPAexp
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'kitid'
        Attributes = [paNullable]
        DataType = ftWideString
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      
        'SELECT id, cytoband, chrpos, order, length, gene, genesub, probe' +
        ', control, type'
      'FROM tbl_kitmarkers'
      'WHERE (( kitid ) = :kitid )'
      'ORDER BY id'
      '')
    Left = 576
    Top = 416
  end
  object qryAnalysisProbes: TADOQuery
    Connection = connMLPAexp
    Parameters = <
      item
        Name = 'analysisassayid'
        Size = -1
        Value = Null
      end>
    SQL.Strings = (
      'SELECT category, rawvalue, transformed, result'
      'FROM tbl_analysisprobes'
      'WHERE (( analysisassayid ) = :analysisassayid )')
    Left = 480
    Top = 264
  end
  object qrySampleInfo: TADOQuery
    Connection = connMLPAexp
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'sampleinfo'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      
        'SELECT tbl_runs.Date, tbl_assays.runid, tbl_assays.assayid, tbl_' +
        'assays.kitid, tbl_assays.SampleIDField, Count(tbl_assayprobes.as' +
        'sayprobeid) AS Probes'
      
        'FROM (tbl_runs RIGHT JOIN tbl_assays ON tbl_runs.runid = tbl_ass' +
        'ays.runid) LEFT JOIN tbl_assayprobes ON tbl_assays.assayid = tbl' +
        '_assayprobes.assayid'
      'WHERE (((tbl_assays.SampleIDField) = :sampleinfo ))'
      
        'GROUP BY tbl_runs.Date, tbl_assays.runid, tbl_assays.assayid, tb' +
        'l_assays.kitid, tbl_assays.SampleIDField')
    Left = 480
    Top = 320
  end
  object qryRunSampleInfo: TADOQuery
    Connection = connMLPAexp
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'runid'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = 'sampleinfo'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'SELECT tbl_assays.assayid FROM tbl_assays'
      
        'WHERE (( tbl_assays.runid ) = :runid ) AND (( tbl_assays.SampleI' +
        'DField ) = :sampleinfo )')
    Left = 480
    Top = 376
  end
  object qryCustom: TADOQuery
    Connection = connMLPAexp
    Parameters = <>
    Left = 280
    Top = 40
  end
  object qryRunExport: TADOQuery
    Connection = connMLPAexp
    CursorType = ctStatic
    DataSource = dsRuns
    Parameters = <
      item
        Name = 'runid'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = '28'
      end>
    SQL.Strings = (
      
        'SELECT tbl_samples.LabId, tbl_assays.kitid, tbl_assays.SampleIDF' +
        'ield, tbl_assays.PlateWell, tbl_assays.Comment'
      
        'FROM tbl_samples INNER JOIN tbl_assays ON tbl_samples.sampleid =' +
        ' tbl_assays.sampleid'
      'WHERE (((tbl_assays.runid)= :runid))'
      'ORDER BY tbl_assays.assayid;')
    Left = 480
    Top = 432
    object qryRunExportLabId: TWideStringField
      FieldName = 'LabId'
      Size = 50
    end
    object qryRunExportkitid: TWideStringField
      FieldName = 'kitid'
      Size = 10
    end
    object qryRunExportSampleIDField: TWideStringField
      FieldName = 'SampleIDField'
      Size = 50
    end
    object qryRunExportPlateWell: TWideStringField
      FieldName = 'PlateWell'
      Size = 10
    end
    object qryRunExportComment: TWideStringField
      FieldName = 'Comment'
      Size = 50
    end
  end
  object qryGetProbeLengthId: TADOQuery
    Connection = connMLPAexp
    Parameters = <
      item
        Name = 'KitId'
        Attributes = [paNullable]
        DataType = ftWideString
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = 'length'
        Attributes = [paNullable]
        DataType = ftWideString
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'SELECT id FROM tbl_kitmarkers'
      'WHERE (  kitid = :KitId )  AND (length = :length );')
    Left = 648
    Top = 296
  end
  object tblKitalias: TADOTable
    Connection = connMLPAexp
    CursorType = ctStatic
    IndexFieldNames = 'kitid'
    MasterFields = 'KitID'
    MasterSource = dsKits
    TableName = 'tbl_kitalias'
    Left = 720
    Top = 96
  end
  object qryAlias2kitid: TADOQuery
    Connection = connMLPAexp
    Parameters = <
      item
        Name = 'kitname'
        Size = -1
        Value = Null
      end>
    SQL.Strings = (
      'select kitid from tbl_kitalias'
      'where kitname = :kitname')
    Left = 648
    Top = 232
  end
  object dsKitalias: TDataSource
    DataSet = tblKitalias
    Left = 768
    Top = 96
  end
  object qrySamplesheet: TADOQuery
    Connection = connMLPAexp
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'runid'
        Attributes = [paNullable]
        DataType = ftInteger
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = 2
      end>
    SQL.Strings = (
      
        'SELECT tbl_samples.LabId, tbl_assays.kitid, tbl_assays.SampleIDF' +
        'ield, tbl_assays.PlateWell, tbl_assays.Comment'
      
        'FROM tbl_samples INNER JOIN tbl_assays ON tbl_samples.sampleid =' +
        ' tbl_assays.sampleid'
      'WHERE (((tbl_assays.runid)= :runid ))'
      'ORDER BY tbl_assays.assayid;')
    Left = 480
    Top = 488
    object WideStringField1: TWideStringField
      FieldName = 'LabId'
      Size = 50
    end
    object WideStringField2: TWideStringField
      FieldName = 'kitid'
      Size = 10
    end
    object WideStringField3: TWideStringField
      FieldName = 'SampleIDField'
      Size = 50
    end
    object WideStringField4: TWideStringField
      FieldName = 'PlateWell'
      Size = 10
    end
    object WideStringField5: TWideStringField
      FieldName = 'Comment'
      Size = 50
    end
  end
end
